Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00018_Script_juror hilite box script

Text File | 1999-04-29 | 843b | 35 lines

global firstjurorhilite,jurorcomments,currtitle,jurorspeaking,demofolder,talkaboutbronze

property s,mycomment,myjuror

on beginsprite me
  s = the spritenum of me
  mycomment = false
  myjuror = (s-firstjurorhilite+1)
end

on prepareframe me
  set the visible of sprite s to mycomment
  if jurorspeaking = myjuror then
  end if
end

on switchtext me,thetitle
  whichcomment = getat(getat(jurorcomments,thetitle),myjuror)
  mycomment = (whichcomment<>"") and ((currtitle<29) or (talkaboutbronze=true))
end

on growup
  mycomment = false
end

on mouseup
  if the doubleclick then exit
  if soundbusy(4) and jurorspeaking = myjuror then
    sound stop 4
    exit
  end if
  whichcomment = getat(getat(jurorcomments,currtitle),myjuror)
  sound playfile 4,(demofolder & whichcomment)
  jurorspeaking = myjuror
end